home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / resize45 / sample.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-02-21  |  7.2 KB  |  240 lines
  1. VERSION 5.00
  2. Object = "{B9EBB9B3-9EFA-11D1-8C45-0080AD1CD4EA}#2.1#0"; "msResize.ocx"
  3. Begin VB.Form Main 
  4.    Caption         =   "msResize product demonstration"
  5.    ClientHeight    =   2880
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4695
  9.    Icon            =   "Sample.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2880
  12.    ScaleWidth      =   4695
  13.    StartUpPosition =   3  'Windows-Standard
  14.    Begin VB.ListBox List1 
  15.       BeginProperty Font 
  16.          Name            =   "Arial"
  17.          Size            =   8.25
  18.          Charset         =   0
  19.          Weight          =   400
  20.          Underline       =   0   'False
  21.          Italic          =   0   'False
  22.          Strikethrough   =   0   'False
  23.       EndProperty
  24.       Height          =   540
  25.       IntegralHeight  =   0   'False
  26.       Left            =   1800
  27.       TabIndex        =   9
  28.       Tag             =   "ResizeFont"
  29.       Top             =   120
  30.       Width           =   1575
  31.    End
  32.    Begin VB.TextBox Text1 
  33.       BeginProperty Font 
  34.          Name            =   "Arial"
  35.          Size            =   8.25
  36.          Charset         =   0
  37.          Weight          =   400
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       Height          =   1095
  43.       Left            =   1200
  44.       MultiLine       =   -1  'True
  45.       TabIndex        =   8
  46.       Text            =   "Sample.frx":0442
  47.       Top             =   720
  48.       Width           =   2175
  49.    End
  50.    Begin msResize.Resize Resize1 
  51.       Left            =   3840
  52.       Top             =   2040
  53.       _ExtentX        =   1005
  54.       _ExtentY        =   1005
  55.       Version         =   "4.4 "
  56.       MinHeight       =   3285
  57.       MinWidth        =   4815
  58.    End
  59.    Begin VB.OptionButton Option2 
  60.       Caption         =   "Option2"
  61.       BeginProperty Font 
  62.          Name            =   "Arial"
  63.          Size            =   8.25
  64.          Charset         =   0
  65.          Weight          =   400
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       Height          =   255
  71.       Left            =   3600
  72.       TabIndex        =   7
  73.       Top             =   1560
  74.       Width           =   855
  75.    End
  76.    Begin VB.OptionButton Option1 
  77.       Caption         =   "Option1"
  78.       BeginProperty Font 
  79.          Name            =   "Arial"
  80.          Size            =   8.25
  81.          Charset         =   0
  82.          Weight          =   400
  83.          Underline       =   0   'False
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       Height          =   255
  88.       Left            =   3600
  89.       TabIndex        =   6
  90.       Top             =   1320
  91.       Value           =   -1  'True
  92.       Width           =   975
  93.    End
  94.    Begin VB.CheckBox Check2 
  95.       Caption         =   "Check2"
  96.       BeginProperty Font 
  97.          Name            =   "Arial"
  98.          Size            =   8.25
  99.          Charset         =   0
  100.          Weight          =   400
  101.          Underline       =   0   'False
  102.          Italic          =   0   'False
  103.          Strikethrough   =   0   'False
  104.       EndProperty
  105.       Height          =   255
  106.       Left            =   3600
  107.       TabIndex        =   5
  108.       Top             =   960
  109.       Width           =   975
  110.    End
  111.    Begin VB.CheckBox Check1 
  112.       Caption         =   "Check1"
  113.       BeginProperty Font 
  114.          Name            =   "Arial"
  115.          Size            =   8.25
  116.          Charset         =   0
  117.          Weight          =   400
  118.          Underline       =   0   'False
  119.          Italic          =   0   'False
  120.          Strikethrough   =   0   'False
  121.       EndProperty
  122.       Height          =   255
  123.       Left            =   3600
  124.       TabIndex        =   4
  125.       Top             =   720
  126.       Value           =   1  'Aktiviert
  127.       Width           =   975
  128.    End
  129.    Begin VB.PictureBox Picture1 
  130.       BackColor       =   &H00808080&
  131.       Height          =   550
  132.       Left            =   1200
  133.       ScaleHeight     =   495
  134.       ScaleWidth      =   495
  135.       TabIndex        =   3
  136.       Top             =   120
  137.       Width           =   550
  138.    End
  139.    Begin VB.CommandButton Quit 
  140.       Caption         =   "&Quit"
  141.       BeginProperty Font 
  142.          Name            =   "Arial"
  143.          Size            =   8.25
  144.          Charset         =   0
  145.          Weight          =   400
  146.          Underline       =   0   'False
  147.          Italic          =   0   'False
  148.          Strikethrough   =   0   'False
  149.       EndProperty
  150.       Height          =   375
  151.       Left            =   3600
  152.       TabIndex        =   1
  153.       Top             =   120
  154.       Width           =   975
  155.    End
  156.    Begin VB.Frame Frame1 
  157.       Height          =   855
  158.       Left            =   120
  159.       TabIndex        =   0
  160.       Top             =   1920
  161.       Width           =   4455
  162.       Begin VB.Label Label1 
  163.          Alignment       =   2  'Zentriert
  164.          Caption         =   "No single line of code!"
  165.          BeginProperty Font 
  166.             Name            =   "Arial"
  167.             Size            =   15.75
  168.             Charset         =   0
  169.             Weight          =   700
  170.             Underline       =   0   'False
  171.             Italic          =   0   'False
  172.             Strikethrough   =   0   'False
  173.          EndProperty
  174.          Height          =   495
  175.          Index           =   0
  176.          Left            =   120
  177.          TabIndex        =   2
  178.          Tag             =   "ResizeFont"
  179.          Top             =   240
  180.          Width           =   4215
  181.       End
  182.    End
  183.    Begin VB.Shape Shape3 
  184.       BackStyle       =   1  'Undurchsichtig
  185.       Height          =   615
  186.       Left            =   600
  187.       Shape           =   2  'Oval
  188.       Top             =   1080
  189.       Width           =   255
  190.    End
  191.    Begin VB.Shape Shape2 
  192.       BackStyle       =   1  'Undurchsichtig
  193.       Height          =   495
  194.       Left            =   360
  195.       Top             =   240
  196.       Width           =   255
  197.    End
  198.    Begin VB.Line Line3 
  199.       X1              =   240
  200.       X2              =   240
  201.       Y1              =   240
  202.       Y2              =   1320
  203.    End
  204.    Begin VB.Line Line2 
  205.       X1              =   960
  206.       X2              =   960
  207.       Y1              =   1680
  208.       Y2              =   600
  209.    End
  210.    Begin VB.Line Line1 
  211.       X1              =   240
  212.       X2              =   960
  213.       Y1              =   1680
  214.       Y2              =   240
  215.    End
  216.    Begin VB.Shape Shape1 
  217.       Height          =   1695
  218.       Left            =   120
  219.       Top             =   120
  220.       Width           =   975
  221.    End
  222. Attribute VB_Name = "Main"
  223. Attribute VB_GlobalNameSpace = False
  224. Attribute VB_Creatable = False
  225. Attribute VB_PredeclaredId = True
  226. Attribute VB_Exposed = False
  227. Option Explicit
  228. Private Sub Form_Load()
  229. Dim i As Integer
  230.     For i = 1 To 100
  231.         List1.AddItem "Samply entry " & CStr(i)
  232.     Next i
  233. End Sub
  234. Private Sub Form_Unload(Cancel As Integer)
  235.     Set Main = Nothing
  236. End Sub
  237. Private Sub Quit_Click()
  238.     Unload Me
  239. End Sub
  240.